object frmSolar: TfrmSolar Left = 182 Top = 109 Width = 740 Height = 500 Caption = 'Solar System' Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 Position = poDefaultPosOnly OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 120 TextHeight = 16 object Toolbar: TPanel Left = 0 Top = 0 Width = 732 Height = 34 Hint = 'Toolbar' Align = alTop BevelOuter = bvNone TabOrder = 0 OnResize = ToolbarResize object bevelToolbar: TBevel Left = 0 Top = 0 Width = 732 Height = 2 Align = alTop Shape = bsTopLine end object spdnew: TSpeedButton Left = 7 Top = 6 Width = 25 Height = 25 Hint = 'New' Glyph.Data = { EE000000424DEE0000000000000076000000280000000F0000000F0000000100 0400000000007800000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77707700000000000770770FFFFFFFFF0770770FFFFFFFFF0770770FFFFFFFFF 0770770FFFFFFFFF0770770FFFFFFFFF0770770FFFFFFFFF0770770FFFFFFFFF 0770770FFFFFFFFF0770770FFFFFF0000770770FFFFFF0F07770770FFFFFF007 777077000000007777707777777777777770} ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdOpen: TSpeedButton Left = 32 Top = 6 Width = 25 Height = 25 Hint = 'Open' Glyph.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 0400000000007800000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777000000000007777700333333333077770B033333333307770FB033333333 30770BFB0333333333070FBFB000000000000BFBFBFBFB0777770FBFBFBFBF07 77770BFB00000007777770007777777700077777777777777007777777770777 070777777777700077777777777777777777} ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdSave: TSpeedButton Left = 57 Top = 6 Width = 25 Height = 25 Hint = 'Save' Glyph.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 0400000000007800000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00770000000000 0007703300000077030770330000007703077033000000770307703300000000 0307703333333333330770330000000033077030777777770307703077777777 0307703077777777030770307777777703077030777777770007703077777777 070770000000000000077777777777777777} ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdPrint: TSpeedButton Left = 90 Top = 6 Width = 24 Height = 25 Hint = 'Print' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 88888800000000000888808888888880808800000000000008080888888BBB88 0008088888877788080800000000000008800888888888808080800000000008 0800880FFFFFFFF080808880F00000F000088880FFFFFFFF088888880F00000F 088888880FFFFFFFF08888888000000000888888888888888888} ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdView: TSpeedButton Left = 123 Top = 6 Width = 25 Height = 25 Hint = 'View Wizard' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000 033333777777777773333330777777703333333773F333773333333330888033 33333FFFF7FFF7FFFFFF0000000000000003777777777777777F0FFFFFFFFFF9 FF037F3333333337337F0F78888888887F037F33FFFFFFFFF37F0F7000000000 8F037F3777777777F37F0F70AAAAAAA08F037F37F3333337F37F0F70ADDDDDA0 8F037F37F3333337F37F0F70A99A99A08F037F37F3333337F37F0F70A99A99A0 8F037F37F3333337F37F0F70AAAAAAA08F037F37FFFFFFF7F37F0F7000000000 8F037F3777777777337F0F77777777777F037F3333333333337F0FFFFFFFFFFF FF037FFFFFFFFFFFFF7F000000000000000377777777777777730000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdStart: TSpeedButton Left = 288 Top = 6 Width = 25 Height = 25 Hint = 'Start' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777770077777777777777000077777 7777777000000777777777700000000777777770000000000777777000000007 7777777000000777777777700007777777777770077777777777777777777777 7777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdProperties: TSpeedButton Left = 181 Top = 6 Width = 25 Height = 25 Hint = 'Properties' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 777700000000000077770FFFFFFFFFF077770F00F00000F077770FFFFFFFFFF0 77770F00F00000F077770FFFFFFFFFF077770FFFFFFF0FF077770F00FFF070F0 77770F070F07070007440FF07070707770440000070707777744777770707777 7744777777077777704477777770000007447777777777777777} ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdAdd: TSpeedButton Left = 156 Top = 6 Width = 25 Height = 25 Hint = 'Add' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333333333333333333FFFFFFFFFFF33330000000000 03333377777777777F33333003333330033333377FF333377F33333300333333 0333333377FF33337F3333333003333303333333377FF3337333333333003333 333333333377FF3333333333333003333333333333377FF33333333333330033 3333333333337733333333333330033333333333333773333333333333003333 33333333337733333F3333333003333303333333377333337F33333300333333 03333333773333337F33333003333330033333377FFFFFF77F33330000000000 03333377777777777333333333333333333333333333333333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdStop: TSpeedButton Left = 313 Top = 6 Width = 25 Height = 25 Hint = 'Stop' Enabled = False Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777770000000000777777000000000 0777777000000000077777700000000007777770000000000777777000000000 0777777000000000077777700000000007777770000000000777777000000000 0777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdPause: TSpeedButton Left = 263 Top = 6 Width = 25 Height = 25 Hint = 'Pause' Enabled = False Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777700007777000077770000777700 0077770000777700007777000077770000777700007777000077770000777700 0077770000777700007777000077770000777700007777000077770000777700 0077777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdFast: TSpeedButton Left = 363 Top = 6 Width = 25 Height = 25 Hint = 'Faster' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777770077777770077777000077777 0077777000000777007777700000000700777770000000000077777000000007 0077777000000777007777700007777700777770077777770077777777777777 7777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdSlow: TSpeedButton Left = 238 Top = 6 Width = 25 Height = 25 Hint = 'Slower' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777700777777700777770077777000 0777770077700000077777007000000007777700000000000777770070000000 0777770077700000077777007777700007777700777777700777777777777777 7777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdContinue: TSpeedButton Left = 338 Top = 6 Width = 25 Height = 25 Hint = 'Continue' Enabled = False Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777770000000007777777000000000777777770000000 7777777770000000777777777700000777777777770000077777777777700077 7777777777700077777777777777077777777777777707777777777777777777 7777777777777777777777777777777777777777777777777777} ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdTime: TSpeedButton Left = 395 Top = 6 Width = 25 Height = 25 Hint = 'Set Time Interval' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031 00333773F77777FF7733331000909000133333377737F777FF33330098F0F890 0333337733F733F77F33370980FFF08907333373373F373373F33099FF0FFFF9 903337F3F373F33FF7F33090FFF0FF00903337F73337F37737F33099FFF0FFF9 9033373F33F7F3F33733370980F0F0890733337FF737F7337F33330098F0F890 03333F77FF3733377FFF000009999900000377777FFFFF77777F088700000008 77037F3377777773337F088887707888870373F3337773F33373307880707088 7033373FF737F73FF733337003303300733333777337FF777333333333000333 33333333337773333333333333333333333333333333333333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdMonitor: TSpeedButton Left = 427 Top = 6 Width = 25 Height = 25 Hint = 'System Monitor' Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 18000000000000030000000000000000000000000000000000005F5F5F404040 4040404040404040404040404040404040404040404040404040404040404040 404040404040406060603F3F007F7F007F7F007F7F007F7F007F7F007F7F007F 7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F004040407F7F00FFFF00 7F7F004000404000407F7F00BFBF00FFFF00FFFF00BFBF007F7F007F7F00BFBF 00FFFF00BFBF00404040200020400040800080800080800080800080600060BF BF00BFBF00600060800080800080400040BFBF00600060404040400040800080 8000808000808000808000808000806000606000608000808000808000808000 8060006080008040404040004080008080008080008080008080008080008080 0080800080400040400040800080800080800080800080404040400040800080 800080800080800080800080800080800080400040DFDFDFDFDFDF5030508000 8080008080008040404040004080008080008080008080008080008080008080 00807F7F7FFFFFFFFFFFFFBFBFBF6000608000806000604040403F3F3F7F7F7F 5F3F5F8000808000806000607F7F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFFFF5F3F 5F400040BFBFBF4040406F6F6FDFDFDF9F9F9F6000606000609F9F9FDFDFDFDF DFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDF4040407F7F7FFFFFFF FFFFFF5F3F5FBFBFBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFF4040407F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4040406F6F6FDFDFDF DFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDF DFDFDFDFDFDFDF4040407F7F7FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF4040407F7F7FFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFF4040403F3F3F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F5F5F5F} ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spdCenterOn: TSpeedButton Left = 206 Top = 6 Width = 25 Height = 25 Hint = 'Center On Body' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333000003333333333F777773FF333333008877700 33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07 703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F 77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F 07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F 780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08 8033373F773337733733330F8700078803333373FF77733F733333300FFF8800 3333333773FFFF773333333330000033333333333777773333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = spbButtonClick end object spinZoom: TSpinEdit Left = 663 Top = 6 Width = 59 Height = 26 Hint = 'Scales the viewing window' TabStop = False AutoSize = False EditorEnabled = False Increment = 10 MaxLength = 9 MaxValue = 999999999 MinValue = 1 ParentShowHint = False ShowHint = True TabOrder = 0 Value = 100 OnChange = spinZoomChange OnDblClick = spinZoomDblClick end object comboName: TComboBox Left = 480 Top = 7 Width = 178 Height = 24 Hint = 'Displays active body' Style = csDropDownList ItemHeight = 16 ParentShowHint = False ShowHint = True Sorted = True TabOrder = 1 OnChange = comboNameChange end end object StatusBar: TStatusBar Left = 0 Top = 425 Width = 732 Height = 23 Hint = 'Status Bar' Panels = < item Width = 200 end item Text = 'January 1st, 1997' Width = 50 end> ParentShowHint = False ShowHint = True SimplePanel = False OnMouseMove = StatusBarMouseMove OnResize = StatusBarResize end object Panel1: TPanel Left = 0 Top = 34 Width = 732 Height = 391 Align = alClient BevelOuter = bvNone BorderStyle = bsSingle TabOrder = 2 object panelView: TPanel Left = 0 Top = 0 Width = 710 Height = 369 Align = alClient BevelOuter = bvNone Caption = 'panelView' Color = clBlack TabOrder = 0 OnResize = PanelResize object paintView: TPaintBox Left = 0 Top = 0 Width = 710 Height = 369 Align = alClient Color = clBlack ParentColor = False OnPaint = paintViewPaint end object DefaultImage: TImage Left = 10 Top = 10 Width = 129 Height = 133 Picture.Data = {} Visible = False end object ImageFileNotFound: TImage Left = 135 Top = 15 Width = 132 Height = 133 Picture.Data = {} Visible = False end end object panelHorizScroll: TPanel Left = 0 Top = 369 Width = 728 Height = 18 Align = alBottom BevelOuter = bvNone Caption = 'panelHorizScroll' TabOrder = 1 OnDblClick = panelHorizScrollDblClick OnResize = panelHorizScrollResize object scrollHoriz: TScrollBar Left = 0 Top = 0 Width = 401 Height = 18 Hint = 'Horizontal Scroll Bar' Ctl3D = False LargeChange = 10 Max = 180 Min = -180 ParentCtl3D = False TabOrder = 0 TabStop = False OnScroll = scrollHorizScroll end end object panelVertScroll: TPanel Left = 710 Top = 0 Width = 18 Height = 369 Align = alRight BevelOuter = bvNone Caption = 'panelVertScroll' TabOrder = 2 OnResize = panelVertScrollResize object scrollVert: TScrollBar Left = 0 Top = 0 Width = 18 Height = 225 Hint = 'Vertical Scroll Bar' Ctl3D = False Kind = sbVertical LargeChange = 10 Max = 180 Min = -180 ParentCtl3D = False TabOrder = 0 TabStop = False OnScroll = scrollVertScroll end end end object MainMenu1: TMainMenu Left = 376 Top = 35 object mnuFileMenu: TMenuItem Caption = '&File' ShortCut = 0 object mnuNew: TMenuItem Caption = '&New' Hint = 'Creates a new document' ShortCut = 0 OnClick = MenuClick end object mnuOpen: TMenuItem Caption = '&Open...' Hint = 'Opens an existing document' ShortCut = 0 OnClick = MenuClick end object mnuSave: TMenuItem Caption = '&Save' Hint = 'Saves the active document' ShortCut = 16467 OnClick = MenuClick end object mnuSaveAs: TMenuItem Caption = 'Save &As...' Hint = 'Saves the active document with a new name' ShortCut = 0 OnClick = MenuClick end object N2: TMenuItem Caption = '-' ShortCut = 0 end object mnuPrinterSetup: TMenuItem Caption = 'Printer Set&up...' Hint = 'Changes page layout settings' ShortCut = 0 OnClick = MenuClick end object mnuPrint: TMenuItem Caption = '&Print...' Hint = 'Prints the active document' ShortCut = 16464 OnClick = MenuClick end object N6: TMenuItem Caption = '-' ShortCut = 0 end object mnuExit: TMenuItem Caption = 'E&xit' Hint = 'Quits the application; prompts you to save documents' ShortCut = 0 OnClick = MenuClick end end object mnuEditMenu: TMenuItem Caption = '&Edit' ShortCut = 0 object mnuSetStartTime: TMenuItem Caption = 'Set &Start Time...' ShortCut = 0 OnClick = MenuClick end object mnuInterval: TMenuItem Caption = 'Set &Time Interval...' ShortCut = 0 OnClick = MenuClick end object mnuSetPointofView: TMenuItem Caption = 'Set S&crollbars...' Hint = 'Adjust the scroll bar positions' ShortCut = 0 OnClick = MenuClick end object N8: TMenuItem Caption = '-' ShortCut = 0 end object mnuViewWizard: TMenuItem Caption = '&View Wizard...' Hint = 'Sets the observers location' ShortCut = 0 OnClick = MenuClick end end object mnuBodyMenu: TMenuItem Caption = '&Body' ShortCut = 0 object mnuAdd: TMenuItem Caption = 'A&dd...' Hint = 'Create a new body' ShortCut = 0 OnClick = MenuClick end object mnuRemove: TMenuItem Caption = '&Remove' Hint = 'Remove the body' ShortCut = 0 OnClick = MenuClick end object N3: TMenuItem Caption = '-' ShortCut = 0 end object mnuShowTails: TMenuItem Caption = 'Show All &Tails' Hint = 'Show tails for all the bodies' ShortCut = 16449 OnClick = MenuClick end object mnuClearTails: TMenuItem Caption = '&Clear Tails' Hint = 'Erase all visible tails' ShortCut = 0 OnClick = MenuClick end object mnuCentreOnBody: TMenuItem Caption = 'Centre On &Body...' ShortCut = 0 OnClick = MenuClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object mnuProperties: TMenuItem Caption = '&Properties...' Hint = 'Change a bodies properties' ShortCut = 0 OnClick = MenuClick end end object mnuViewMenu: TMenuItem Caption = '&View' ShortCut = 0 object mnuToolbar: TMenuItem Caption = '&Toolbar' Checked = True Hint = 'Shows or hides the toolbar' ShortCut = 0 OnClick = MenuClick end object mnuStatusBar: TMenuItem Caption = 'Status &Bar' Checked = True Hint = 'Shows or hides the status bar' ShortCut = 0 OnClick = MenuClick end object mnuScrollBars: TMenuItem Caption = '&Scroll Bars' Checked = True Hint = 'Shows or hides the positioning scroll bars' ShortCut = 0 OnClick = MenuClick end object N4: TMenuItem Caption = '-' ShortCut = 0 end object mnuFullScreen: TMenuItem Caption = '&Full Screen' Hint = 'Toggles full screen mode on/off' ShortCut = 0 OnClick = MenuClick end object mnuZoom: TMenuItem Caption = '&Zoom...' Hint = 'Scales the viewing window' ShortCut = 0 OnClick = MenuClick end object N10: TMenuItem Caption = '-' ShortCut = 0 end object mnuNotes: TMenuItem Caption = 'System &Notes...' Hint = 'Shows the system notes' ShortCut = 0 OnClick = MenuClick end object mnuMonitor: TMenuItem Caption = 'System &Monitor...' Hint = 'Shows the system Monitor' ShortCut = 0 OnClick = MenuClick end object N5: TMenuItem Caption = '-' ShortCut = 0 end object mnuOptions: TMenuItem Caption = '&Options...' Hint = 'Changes various options of Solar System' ShortCut = 0 OnClick = MenuClick end end object mnuAnimationMenu: TMenuItem Caption = '&Animation' ShortCut = 0 object mnuStart: TMenuItem Caption = '&Start' Hint = 'Start the animaton' ShortCut = 0 OnClick = MenuClick end object mnuStop: TMenuItem Caption = 'S&top' Enabled = False Hint = 'Stop the animation' ShortCut = 0 OnClick = MenuClick end object mnuPause: TMenuItem Caption = '&Pause' Enabled = False Hint = 'Pause the animation' ShortCut = 113 OnClick = MenuClick end object mnuContinue: TMenuItem Caption = '&Continue' Enabled = False Hint = 'Continue the animation' ShortCut = 114 OnClick = MenuClick end object N7: TMenuItem Caption = '-' ShortCut = 0 end object mnuSpeed: TMenuItem Caption = 'Sp&eed' Hint = 'Change the speed of the animation' ShortCut = 0 object mnuExtremelySlow: TMenuItem Caption = '&Extremely Slow' GroupIndex = 1 RadioItem = True ShortCut = 0 OnClick = MenuClick end object mnuSlow: TMenuItem Caption = '&Slow' GroupIndex = 1 RadioItem = True ShortCut = 0 OnClick = MenuClick end object mnuMedium: TMenuItem Caption = '&Medium' Checked = True GroupIndex = 1 RadioItem = True ShortCut = 0 OnClick = MenuClick end object mnuFast: TMenuItem Caption = '&Fast' GroupIndex = 1 RadioItem = True ShortCut = 0 OnClick = MenuClick end object mnuUltraFast: TMenuItem Caption = '&Ultra Fast' GroupIndex = 1 RadioItem = True ShortCut = 0 OnClick = MenuClick end object N9: TMenuItem Caption = '-' GroupIndex = 1 ShortCut = 0 end object mnuCustom: TMenuItem Caption = '&Custom' GroupIndex = 1 RadioItem = True ShortCut = 0 OnClick = MenuClick end end end object mnuHelpMenu: TMenuItem Caption = '&Help' ShortCut = 0 object mnuHelpTopics: TMenuItem Caption = '&Help Topics' Hint = 'Lists Help topics' ShortCut = 0 OnClick = MenuClick end object N11: TMenuItem Caption = '-' ShortCut = 0 end object mnuAbout: TMenuItem Caption = '&About Solar System...' Hint = 'Displays program information, version number, and copyright' ShortCut = 0 OnClick = MenuClick end end end object Timer: TTimer Enabled = False Interval = 40 OnTimer = TimerClick Left = 337 Top = 35 end object PrintDialog: TPrintDialog Left = 442 Top = 37 end object PrinterSetupDialog: TPrinterSetupDialog Left = 410 Top = 37 end object sysSave: TSaveDialog DefaultExt = 'dat' FileEditStyle = fsEdit Filter = 'Data Files (*.dat)|*.dat|All Files (*.*)|*.*' Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist] Title = 'Save As' Left = 258 Top = 37 end object SysOpen: TOpenDialog DefaultExt = 'dat' FileEditStyle = fsEdit Filter = 'Data file (*.dat)|*.dat|All Files (*.*)|*.*' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Open' Left = 298 Top = 37 end end